
//-------------------------------
// FIGURE 2
//-------------------------------

clear
use masterdata_policing.dta

gen vcrime_tot = murders + agg_assault + forc_rape + robbery
gen vcrime_clear = murders_clear + agg_assault_clear + forc_rape_clear + robbery_clear
gen vcrimeclearrate = vcrime_clear/vcrime_tot
gen pcrime_tot = burglary + larcenytheft + mvt
gen pcrime_clear = burglary_clear + larceny_clear + mvt_clear
gen pcrimeclearrate = pcrime_clear/pcrime_tot


hist vcrimeclearrate if year == 2012, xline(0.52, lcol(gray) lpat(dash) lwid(thick)) fcolor(none) lcolor(gs3) graphregion(color(white)) saving(hist1, replace)
hist pcrimeclearrate if year == 2012, xline(0.21, lcol(gray) lpat(dash) lwid(thick)) fcolor(none) lcolor(gs3) graphregion(color(white)) saving(hist2, replace)
gr combine hist1.gph hist2.gph, ysize(3) graphregion(color(white)) 


